home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / kabegami / kabe1.bas next >
BASIC Source File  |  1993-07-08  |  635b  |  23 lines
  1. 10 SCREEN@1
  2. 20 CLS
  3. 30 FOR I=0 TO 520
  4. 40    LINE(I,0)-(I-200,240),PSET,[200-I/5,50-I/20,200-I/5]
  5. 50 NEXT
  6. 60 FOR I=320 TO -150 STEP -1
  7. 70    LINE(I,0)-(I+150,240),PASTEL,[200-I/5,50-I/20,200-I/5]
  8. 80 NEXT
  9. 90 '
  10. 100 ON ERROR GOTO *ERROR
  11. 110 SAVE@"tmenu.TIF",(0,0)-(319,239) : END
  12. 120 *ERROR
  13. 130 CLS : BEEP
  14. 140 IF ERR=65 THEN 
  15. 150   PRINT "同じディレクトリに「ＴＭＥＮＵ．ＴＩＦ」が存在しています。"
  16. 160   PRINT "削除するか、別のところへ移動させてください"
  17. 170 ENDIF
  18. 180 IF ERR=65 THEN
  19. 190   PRINT "ディスクの空き容量が足りません。"
  20. 200   PRINT "削除するか、別のところへ移動させてください"
  21. 210 ENDIF
  22. 220 WAIT 500 : END
  23.